﻿Public Class GetLineasTexto

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim lista As New List(Of String)
      Dim lineas As Decimal = AcTextBoxNumerico1.Text
      Dim msg As String = String.Format("Lineas: {0}", ACFramework.ACUtilitarios.GetTextoLines(TextBox1.Text, lineas, lista))

      msg &= String.Format("{0}", vbNewLine)
      For Each item As String In lista
         msg &= String.Format("{0}{1}", item, vbNewLine)
      Next
      TextBox2.Text = msg

   End Sub
End Class